function [discount,beca,stipend] = u30_2011(math,lang,demrecode,his,sci)
%% Universidad de La Frontera
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Beca Arancel de Inscripci'on
discount=(((2*lm+max(his,sci))/3>=750) + (math==850) + (lang==850) + (his==850) + (sci==850))>0;

%BVP
if demrecode==3044 || demrecode==3060 || demrecode==3047 || demrecode==3055 || demrecode==3058
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
